
: PRIMES ( n - )
  2 SWAP 2 . 3 . 5 
  DO
    DUP DUP * I < 
    IF 1+ THEN 
    1 OVER 1+ 3 DO
        J I MOD 0= 
        IF 1- LEAVE THEN
    2 +LOOP
    IF I . THEN 
  2 +LOOP 
  DROP
;

( LEAVE test)  
: TEST 5 0 DO 
    100 0 
	  DO I . I 10 = IF ." out" CR LEAVE THEN 2 +LOOP
      ." outer" CR 
	LOOP
;
  
( +LOOP TEST)
: TEST CR
  BEGIN 5 0 DO
    I . ." in outer loop" CR
    100 0 DO
      I . I 10 = IF ." exit inner loop" CR LEAVE THEN
    1 +LOOP
  LOOP AGAIN
;


( J TEST)
: TEST
  CR
  10 0 DO
     I . ." >>" 5 0 DO J . LOOP CR
  LOOP
;
